home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Dom i biuro / EBookReader 2.2 / eBookReaderInstall.exe / data1.cab / Program_EXEs / ReaderApp.exe / PSPROCSET / 18 < prev    next >
Encoding:
Text File  |  2001-11-27  |  7.4 KB  |  397 lines
  1. %%BeginResource: procset pdflev2
  2. %%Version: 5.0 13
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 2
  5. %%Title: PDF operators, with code specific for Level 2
  6. /docinitialize {
  7. PDF begin
  8. /_defaulthalftone currenthalftone dd
  9. /_defaultblackgeneration currentblackgeneration dd
  10. /_defaultundercolorremoval currentundercolorremoval dd
  11. /_defaultcolortransfer [currentcolortransfer] dd
  12. /_defaulttransfer currenttransfer dd
  13. end
  14. PDFVars /docSetupDone true put
  15. } bd
  16. /initialize {
  17. PDFVars /docSetupDone get {
  18. _defaulthalftone sethalftone
  19. /_defaultblackgeneration load setblackgeneration
  20. /_defaultundercolorremoval load setundercolorremoval
  21. _defaultcolortransfer aload pop setcolortransfer
  22. } if
  23. false setoverprint
  24. } bd
  25. /terminate { } bd
  26. /c /curveto ld
  27. /cs /setcolorspace ld
  28. /l /lineto ld
  29. /m /moveto ld
  30. /sc /setcolor ld
  31. /setSA/setstrokeadjust ld
  32. /re {
  33. 4 2 roll m
  34. 1 index 0 rlineto
  35. 0 exch rlineto
  36. neg 0 rlineto
  37. h
  38. } bd
  39. /concattransferfuncs {
  40. [ 3 1 roll /exec load exch /exec load ] cvx
  41. } bd
  42. /concatandsettransfer {
  43. /_defaulttransfer load concattransferfuncs settransfer
  44. } bd
  45. /concatandsetcolortransfer {
  46. _defaultcolortransfer aload pop
  47. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  48. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  49. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  50. concattransferfuncs
  51. setcolortransfer
  52. } bd
  53. /defineRes/defineresource ld
  54. /findRes/findresource ld
  55. currentglobal
  56. true systemdict /setglobal get exec
  57. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
  58. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  59. forall
  60. systemdict /setglobal get exec
  61. /ri
  62. {
  63. /findcolorrendering isdefined?
  64. {
  65. mark exch
  66. findcolorrendering
  67. counttomark 2 eq
  68. { type /booleantype eq
  69. { dup type /nametype eq
  70. { dup /ColorRendering resourcestatus
  71. { pop pop
  72. dup /DefaultColorRendering ne
  73. {
  74. /ColorRendering findresource
  75. setcolorrendering
  76. } if
  77. } if
  78. } if
  79. } if
  80. } if
  81. cleartomark
  82. }
  83. { pop
  84. } ifelse
  85. } bd
  86. /knownColorants? {
  87. pop false
  88. } bd
  89. /getrampcolor {
  90. /indx exch def
  91. 0 1 NumComp 1 sub {
  92. dup
  93. Samples exch get
  94. dup type /stringtype eq { indx get } if
  95. exch
  96. Scaling exch get aload pop
  97. 3 1 roll
  98. mul add
  99. } for
  100. setcolor
  101. } bd
  102. /GenStrips {
  103. 40 dict begin
  104. /background exch def
  105. /ext1 exch def
  106. /ext0 exch def
  107. /BBox exch def
  108. /y2 exch def
  109. /x2 exch def
  110. /y1 exch def
  111. /x1 exch def
  112. /rampdict exch def
  113. gsave
  114. BBox length 0 gt {
  115. BBox 0 get BBox 1 get
  116. BBox 2 get BBox 0 get sub
  117. BBox 3 get BBox 1 get sub
  118. rectclip
  119. } if
  120. x1 x2 eq
  121. {
  122. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  123. }
  124. {
  125. /slope y2 y1 sub x2 x1 sub div def
  126. /theta slope 1 atan def
  127. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  128. x2 x1 lt y2 y1 le and { /theta theta 180 add def} if
  129. }
  130. ifelse
  131. gsave
  132. clippath
  133. x1 y1 translate
  134. theta rotate
  135. pathbbox
  136. /yMax exch def
  137. /xMax exch def
  138. /yMin exch def
  139. /xMin exch def
  140. grestore
  141. xMax xMin eq yMax yMin eq or
  142. {
  143. grestore
  144. end
  145. }
  146. {
  147. rampdict begin
  148. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  149. gsave
  150. x1 y1 translate
  151. theta rotate
  152. /xStart 0 def
  153. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  154. /ySpan yMax yMin sub def
  155. /numsteps NumSamples def
  156. /rampIndxInc 1 def
  157. /subsampling false def
  158. xStart 0 transform
  159. xEnd 0 transform
  160. 3 -1 roll
  161. sub dup mul
  162. 3 1 roll
  163. sub dup mul
  164. add 0.5 exp 72 div
  165. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  166. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  167. 1 index 1 index lt { exch } if pop
  168. mul
  169. /numpix exch def
  170. numpix 0 ne
  171. {
  172. NumSamples numpix div 0.5 gt
  173. {
  174. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  175. /rampIndxInc NumSamples 1 sub numsteps div def
  176. /subsampling true def
  177. } if
  178. } if
  179. ext0 {
  180. 0 getrampcolor
  181. x1 x2 lt
  182. { xMin yMin xStart xMin sub ySpan rectfill}
  183. { xStart yMin xMax xStart sub ySpan rectfill}
  184. ifelse
  185. } if
  186. /xInc xEnd xStart sub numsteps div def
  187. /x xStart def
  188. 0
  189. numsteps
  190. {
  191. dup
  192. subsampling { round cvi } if
  193. getrampcolor
  194. x yMin xInc ySpan rectfill
  195. /x x xInc add def
  196. rampIndxInc add
  197. }
  198. repeat
  199. pop
  200. ext1 {
  201. xStart xEnd lt
  202. { xEnd yMin xMax xEnd sub ySpan rectfill}
  203. { xMin yMin xEnd xMin sub ySpan rectfill}
  204. ifelse
  205. } if
  206. grestore
  207. grestore
  208. end
  209. end
  210. } ifelse
  211. } bd
  212. /RadialShade {
  213. 40 dict begin
  214. /background exch def
  215. /ext1 exch def
  216. /ext0 exch def
  217. /BBox exch def
  218. /r2 exch def
  219. /c2y exch def
  220. /c2x exch def
  221. /r1 exch def
  222. /c1y exch def
  223. /c1x exch def
  224. /rampdict exch def
  225. gsave
  226. BBox length 0 gt {
  227. BBox 0 get BBox 1 get
  228. BBox 2 get BBox 0 get sub
  229. BBox 3 get BBox 1 get sub
  230. rectclip
  231. } if
  232. gsave
  233. clippath
  234. pathbbox
  235. /BByMax exch def
  236. /BBxMax exch def
  237. /BByMin exch def
  238. /BBxMin exch def
  239. grestore
  240. BBxMax BBxMin eq BByMax BByMin eq or
  241. {
  242. grestore
  243. end
  244. }
  245. {
  246. rampdict begin
  247. background length 0 gt { background aload pop setcolor gsave clippath fill grestore } if
  248. /areaOfConcern
  249. BBxMin BByMin BBxMax BByMax
  250. BBxMin BByMin
  251. BBxMax BBxMin sub 0
  252. 0 BByMax BByMin sub
  253. BBxMin BBxMax sub 0
  254. 12 packedarray
  255. < 0B 00 01 04 04 04 0A>
  256. 2 packedarray
  257. def
  258. c1x c2x sub dup mul
  259. c1y c2y sub dup mul
  260. add 0.5 exp
  261. r1 add
  262. r2 sub
  263. abs
  264. 0 dtransform
  265. dup mul exch dup mul add 0.5 exp 72 div
  266. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  267. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  268. 1 index 1 index lt { exch } if pop
  269. /hires exch def
  270. hires mul
  271. /numpix exch def
  272. /numsteps NumSamples def
  273. /rampIndxInc 1 def
  274. /subsampling false def
  275. numpix 0 ne
  276. {
  277. NumSamples numpix div 0.5 gt
  278. {
  279. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  280. /rampIndxInc NumSamples 1 sub numsteps div def
  281. /subsampling true def
  282. } if
  283. } if
  284. /xInc c2x c1x sub numsteps div def
  285. /yInc c2y c1y sub numsteps div def
  286. /rInc r2 r1 sub numsteps div def
  287. ext0 {
  288. 0 getrampcolor
  289. r1 r2 eq c1x c2x eq and c1y c2y eq and
  290. {
  291. c1x c1y r1 0 360 arc fill
  292. }
  293. {
  294. r1 r2 lt
  295. {
  296. /backsteps r1 rInc div floor def
  297. /cx c1x xInc backsteps mul sub def
  298. /cy c1y yInc backsteps mul sub def
  299. /radius r1 rInc backsteps mul sub def
  300. newpath
  301. {
  302. cx cy radius 0 360 arc
  303. fill
  304. radius r1 ge { exit} if
  305. /radius radius rInc add def
  306. /cx cx xInc add def
  307. /cy cy yInc add def
  308. } loop
  309. }
  310. {
  311. /cx c1x def
  312. /cy c1y def
  313. /radius r1 def
  314. newpath
  315. {
  316. cx cy radius 360 0 arcn
  317. /cx cx xInc sub def
  318. /cy cy yInc sub def
  319. /radius radius rInc sub def
  320. cx cy radius 0 360 arc
  321. areaOfConcern ineofill not { exit } if
  322. eofill
  323. } loop
  324. } ifelse
  325. } ifelse
  326. } if
  327. /cx c1x def
  328. /cy c1y def
  329. /radius r1 def
  330. newpath
  331. xInc 0 eq yInc 0 eq rInc 0 eq and and
  332. {
  333. 0 getrampcolor
  334. cx cy radius 0 360 arc
  335. stroke
  336. NumSamples 1 sub getrampcolor
  337. cx cy radius 72 hires div add 0 360 arc
  338. 0 setlinewidth
  339. stroke
  340. }
  341. {
  342. 0
  343. numsteps
  344. {
  345. dup
  346. subsampling { round cvi } if
  347. getrampcolor
  348. cx cy radius 0 360 arc
  349. /cx cx xInc add def
  350. /cy cy yInc add def
  351. /radius radius rInc add def
  352. cx cy radius 360 0 arcn
  353. eofill
  354. rampIndxInc add
  355. }
  356. repeat
  357. pop
  358. } ifelse
  359. ext1 {
  360. r2 r1 le
  361. {
  362. r2 r1 eq c1x c2x eq and c1y c2y eq and
  363. {
  364. c1x c1y r1 0 360 arc
  365. areaOfConcern uappend
  366. eofill
  367. }
  368. {
  369. {
  370. cx cy radius 0 360 arc
  371. areaOfConcern infill not { exit } if
  372. fill
  373. /radius radius rInc add def
  374. /cx cx xInc add def
  375. /cy cy yInc add def
  376. } loop
  377. } ifelse
  378. }
  379. {
  380. {
  381. cx cy radius 0 360 arc
  382. /cx cx xInc add def
  383. /cy cy yInc add def
  384. /radius radius rInc add def
  385. cx cy radius 360 0 arcn
  386. areaOfConcern ineofill not { exit } if
  387. eofill
  388. } loop
  389. } ifelse
  390. } if
  391. grestore
  392. end
  393. end
  394. } ifelse
  395. } bd
  396. %%EndResource
  397.